Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/cocktail/rpp.lha/rpp/src/rpp.mi

Text File | 1992-08-18 | 293b | 18 lines

MODULE rpp;

FROM Scanner    IMPORT BeginScanner, GetToken, EofToken, CloseScanner;
FROM IO        IMPORT CloseIO;
FROM System    IMPORT Exit;

VAR Token    : INTEGER;

BEGIN
   BeginScanner;
   REPEAT
      Token := GetToken ();
   UNTIL Token = EofToken;
   CloseScanner;
   CloseIO;
   Exit (0);
END rpp.